home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 4 / The 640 Meg Shareware Studio CD-ROM Volume IV (Data Express)(1994).ISO / clang / stawin.zip / TEST.PRG < prev   
Text File  |  1993-06-09  |  191b  |  12 lines
  1. // A small test program to test STATWIN functions. Compile with /a/m/n.
  2.  
  3. FUNCTION Main()
  4.  
  5.    LOCAL n
  6.  
  7.    StatInit()
  8.    for n = 1 to 10000
  9.       StatWin(10000,n)
  10.    next
  11.  
  12. RETURN NIL